home *** CD-ROM | disk | FTP | other *** search
/ BBS Toolkit / BBS Toolkit.iso / qbbs / ques_221.zip / SAMPLES.ZIP / DEMOS.ZIP / LEVEL.Q-A < prev    next >
Text File  |  1990-07-04  |  1KB  |  79 lines
  1. clearscreen
  2.  
  3. :hoofd
  4. clearscreen
  5. changecolor 4
  6. display "|"
  7. display "Your current Security Level is: "
  8. listsecurity
  9. display "|"
  10. display "|"
  11. changecolor 14
  12. display "   < 1 >   Upgrade level with 1|"
  13. display "   < 2 >   Downgrade level with 1|"
  14. display "   < 3 >   Select completely new|"
  15. display "   < 4 >   Set security level to level 100|"
  16. display "   < ! >   Return to bbs|"  
  17. display "|"
  18. changecolor 4
  19. display "Command: "
  20. getchar 1
  21. :
  22.  
  23. if 1 = "1"
  24. setsecurity +1
  25. gotolabel hoofd
  26. endif
  27.  
  28. if 1 = "2"
  29. setsecurity -1
  30. gotolabel hoofd
  31. endif
  32.  
  33. if 1 = "3"
  34. display "|"
  35. display "|"
  36. display "Enter the new security level you want: "
  37. Ask 5 2
  38. display "|"
  39. display "|"
  40. setlevel 2
  41. display "Allright, you're now have Security level : "
  42. listsecurity 2
  43. display "|"
  44. display "Press <ENTER>"
  45. Ask 0 3
  46. gotolabel hoofd
  47. endif
  48.  
  49. if 1 = "4"
  50. setsecurity 100
  51. gotolabel hoofd
  52. endif
  53.  
  54. if 1 = "!"
  55. display "|"
  56. display "|"
  57. display "Nice of you to try out this small door...|"
  58. display "This door was made with Quesdoor; the Extended Questionaire Language !|"
  59. display "|"
  60. display "Press <ENTER>"
  61. Ask 0 3
  62. clearscreen
  63. delete level.asw
  64. changecolor 15
  65. quit
  66. endif
  67.  
  68.  
  69. ifnot 1 = "!"
  70. display "|"
  71. display "|"
  72. display "Unknown Option....|"
  73. display "|"
  74. display "Press <ENTER>"
  75. Ask 0 3
  76. gotolabel hoofd
  77. endnotif
  78.  
  79.